home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / blitzandpieces / screenlist.asc < prev    next >
Encoding:
Text File  |  1999-05-14  |  515 b   |  26 lines
  1. ; jamesboyd@all-hail.freeserve.co.uk
  2.  
  3. ; lists open public screens
  4.  
  5. Dim scr$(500)                     ; just to be on the safe side ;)
  6.  
  7. *scrs.List=LockPubScreenList_ ()  ; lock all screens
  8.  
  9.   *mynode.Node=*scrs\lh_Head      ; list o' screens
  10.  
  11.   count.w=0
  12.   While *mynode\ln_Succ
  13.     count+1
  14.     scr$(count)=Peek$(*mynode\ln_Name) ; screen name
  15.     *mynode=*mynode\ln_Succ
  16.   Wend
  17.  
  18. UnlockPubScreenList_              ; unlock screens
  19.  
  20. For a=1 To count                  ; list 'em
  21.   NPrint scr$(a)
  22. Next a
  23.  
  24. MouseWait
  25. End
  26.